کدهای مربوط به ساعت :

'---------------------------------------------------------------

'Simple Digital Clock With 7-Segment

'Programmer: Majid Alinia (Savis_20@Yahoo.COM) MajidAlinia.Blogfa.COM

'Compiler : BASCOM 2.02.8.0

'Creation Date: May 02, 2011 (1390.02.12)

'Copyright: (C) 2011 By WWW.MajiAlinia.Blogfa.COM

'License: This Is A Free Firmware, Ver: 1.00 (Comm. Anode)

'---------------------------------------------------------------

$regfile = "m8def.dat"

$crystal = 1000000                                          'Internal RC

$hwstack = 64

$swstack = 64

$framesize = 64

'RTC

Config Clock = Soft , Gosub = Sectic

Enable Interrupts

Time$ = "12:00:00"

'I/O

Config Portd = Output                                       'A-G (Data)

Config Portc = Output

Config Pinb.0 = Input

Config Pinb.1 = Input

Config Pinb.2 = Output

'Set Pullup Resistor For Setting Key's

Set Portb.0

Set Portb.1

'Aliases

Dataport Alias Portd

Comm Alias Portc

Hour_key Alias Pinb.0

Min_key Alias Pinb.1

Second_led Alias Portb.2

'Variables

Dim Temp As Byte

Dim Temp2 As Byte

Dim Scnd As Byte

Dim Rtc_run As Byte

Dim S As Bit

Dim Dp As Bit

'Declaration

Declare Sub Keyscan

Declare Sub Refresh

Declare Sub Send

Declare Sub Wait4key

Declare Sub Blink_sec

'Wait 4 RTC Start

'Comm. Anode

'Hour Key

'Minute Key

'Blink Sec

Do

If Rtc_run > 0 Then Exit Do

Loop

'Main Prog Start Here:

Do

Call Keyscan

Call Refresh

Call Blink_sec

Loop

End

Sub Keyscan

If Hour_key = 0 Then

Incr _hour

If _hour > 23 Then _hour = 0

Call Wait4key

End If

If Min_key = 0 Then

Incr _min

If _min > 59 Then _min = 0

Call Wait4key

End If

End Sub

Sub Refresh

   Comm = &B1000 : Dp = 0 : Temp = _hour \ 10 : Call Send

   Comm = &B0100 : Dp = 1 : Temp = _hour Mod 10 : Call Send

   Comm = &B0010 : Dp = 0 : Temp = _min \ 10 : Call Send

   Comm = &B0001 : Dp = 0 : Temp = _min Mod 10 : Call Send

End Sub

Sub Send

   Dataport = Lookup(temp , Segdata)

If Dp = 1 Then

Portd.7 = S

Else

Portd.7 = 1

End If

Waitms 4

   Dataport = &HFF

End Sub

Sub Wait4key

For Temp2 = 1 To 25

Call Refresh

Next

End Sub

Sub Blink_sec

Incr Scnd

If Scnd > 63 Then Scnd = 0

If Scnd > 0 And Scnd < 31 Then

      S = 1

Else

      S = 0

End If

End Sub

Segdata:

Data &B11000000 , &B11111001 , &B10100100 , &B10110000

Data &B10011001 , &B10010010 , &B10000010 , &B11111000

Data &B10000000 , &B10010000

Sectic:

Incr Rtc_run

Return

گرد آورنده :   مجید علی نیا

WWW.Majid Alinia.Blogfa.COM

WWW.ECA.Loxblog.COM

Savis_20@yahoo.com